300 ADDR=12500:X=PEEK(ADDR):Y=PEEK(ADDR+1):LE=PEEK(ADDR+2):DE=PEEK(ADDR+3)
310 FOR LI=ADDR+4 TO ADDR+258
320 IF CHR$(PEEK(LI))="_" THEN GOTO 350
330 ME$=ME$+CHR$(PEEK(LI))
340 NEXT LI
350 DIM SCREEN(1000)
360 XX$="":YY$="":YY=Y+1
370 IFLE=0ORLE>=(40-X)ORDE=0ORDE>=(22-Y)ORLE<7THENPRINT"COORDINATE ERROR":END
380 EN=(1024+X+40*Y)+LE:FORLDSV=1024+X+40*YTO 1024+(X+LE)+40*(Y+DE)-1
390 IF LDSV=EN THEN LDSV=LDSV+(40-(X+LE))+X:EN=EN+40
391 LET SCREEN(LDSV-1024)=PEEK(LDSV)
392 NEXT LDSV
393 EN=(1024+X+40*Y)+LE:FOR LDSV=1024+X+40*Y TO 1024+(X+LE)+40*(Y+DE)-1
395 IF LDSV=EN THEN LDSV=LDSV+(40-(X+LE))+X:EN=EN+40
400 POKE LDSV,160
410 NEXT LDSV
420 PRINT"";:FOR L=1TO X+1:PRINTXX$;:NEXTL
430 FOR L=1 TO Y+1:PRINT YY$;:NEXTL
440 FOR LI=1 TO LEN(ME$) STEP LE-2
450 PRINTMID$(ME$,LI,LE-2)
460 PRINT"";:FOR L=1 TO X+1:PRINTXX$;:NEXTL
470 FOR L=1 TO Y+1:PRINTYY$;:NEXTL
480 FOR LI=1 TO LEN(ME$) STEP LE-2
490 PRINTMID$(ME$,LI,LE-2)
500 PRINT"";:FOR L=1 TO X+1:PRINTXX$;:NEXT L
510 NEXT LI
520 PRINT"";:FOR L=1 TO X+LE-6:PRINTXX$;:NEXT L
530 FOR L=1TO (Y+DE)-1:PRINTYY$;:NEXT L
540 PRINT"<KEY>"
550 GETA$:IF A$="" THEN 550
560 EN=(1024+X+40*Y)+LE:FOR LDSV=1024+X+40*Y TO 1024+(X+LE)+40*(Y+DE)-1
570 IF LDSV=EN THEN LDSV=LDSV+(40-(X+LE))+X:EN=EN+40
580 POKE LDSV,SCREEN(LDSV-1024)
590 NEXT LDSV
600 PRINT"";